<%
id=Request.QueryString("id")
set con=Server.CreateObject("adodb.Connection")
con.Open ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& hafez
set rs=Server.CreateObject("adodb.Recordset")
strSQL= "Select * From Faal where id=" & id & ""
rs.Open strSQL,con,1
id=rs("id")
name=rs("nam")
url=rs("Url")
%>